[; -*-Scheme-*-

 ;;(define web-statement (my-st brl-context))
(define-input (brl-nonblank? accmonth) )
;;for c++ builder httppost para problem
(set! accmonth (car (brl-split "x" accmonth)))

(let  ( (rows (excel->lists (brl-string web-root-dir "papers/bsoncash"  accmonth ".xls" ) 1 11))
	(csv ""))
;;(brl rows)
(if #t
  (for-each
   (lambda (row)
     (if (> (string->number (brl-string (list-ref row 3))) 0.01 )
	 (begin 
	   (brl  (brl-string-join ","
		  (list (list-ref row 1)
			(list-ref row 2)
			(list-ref row 3)
			(list-ref row 10))))
	   (brl  "\n")))
     ) rows))
)


]
